短信驗(yàn)證碼/通知 - 代碼示例

.版本 2
.支持庫(kù) iconv
.支持庫(kù) EXMLParser
 
.程序集 窗口程序集_啟動(dòng)窗口
 
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
 
 
 
.子程序 賬戶(hù)信息判斷, 邏輯型, 公開(kāi)
 
.如果真 (接口名.內(nèi)容 ＝ "")
    信息框 ("請(qǐng)輸入用戶(hù)名", 0, )
    返回 (假)
.如果真結(jié)束
.如果真 (接口密.內(nèi)容 ＝ "")
    信息框 ("請(qǐng)輸入密碼", 0, )
    返回 (假)
.如果真結(jié)束
返回 (真)
 
.子程序 發(fā)送數(shù)據(jù)判斷, 邏輯型, 公開(kāi)
 
.如果真 (手機(jī)號(hào).內(nèi)容 ＝ "")
    信息框 ("請(qǐng)輸入手機(jī)號(hào)碼", 0, )
    返回 (假)
.如果真結(jié)束
.如果真 (短信內(nèi)容.內(nèi)容 ＝ "")
    信息框 ("請(qǐng)輸入要發(fā)送的內(nèi)容", 0, )
    返回 (假)
.如果真結(jié)束
返回 (真)
 
 
.子程序 _按鈕1_被單擊
.局部變量 節(jié)點(diǎn)名數(shù)組, 文本型, , "0"
.局部變量 子節(jié)點(diǎn)數(shù), 整數(shù)型
.局部變量 i, 整數(shù)型
 
.如果真 (取反 (賬戶(hù)信息判斷 ()))
    返回 ()
.如果真結(jié)束
.如果真 (取反 (發(fā)送數(shù)據(jù)判斷 ()))
    返回 ()
.如果真結(jié)束
狀態(tài)標(biāo)簽.標(biāo)題 ＝ 短信發(fā)送 (接口名.內(nèi)容, 接口密.內(nèi)容, 手機(jī)號(hào).內(nèi)容, 短信內(nèi)容.內(nèi)容)
xml文件名 ＝ 取當(dāng)前目錄 () ＋ "\data\submit.xml"
狀態(tài)標(biāo)簽.標(biāo)題 ＝ 到文本 (編碼轉(zhuǎn)換 (到字節(jié)集 (狀態(tài)標(biāo)簽.標(biāo)題), #編碼_UTF_8, #編碼_GBK, ))
寫(xiě)到文件 (xml文件名, 到字節(jié)集 (狀態(tài)標(biāo)簽.標(biāo)題))
xml.導(dǎo)入 (xml文件名)
xml.取根節(jié)點(diǎn)名 (根節(jié)點(diǎn))
xml.取子節(jié)點(diǎn)數(shù) (根節(jié)點(diǎn), 子節(jié)點(diǎn)數(shù))
.如果真 (子節(jié)點(diǎn)數(shù) ＞ 0)
    xml.取子節(jié)點(diǎn)名 (根節(jié)點(diǎn), 節(jié)點(diǎn)名數(shù)組)
    輸出調(diào)試文本 (節(jié)點(diǎn)名數(shù)組 [1])
    輸出調(diào)試文本 (節(jié)點(diǎn)名數(shù)組 [2])
    輸出調(diào)試文本 (節(jié)點(diǎn)名數(shù)組 [3])
    輸出調(diào)試文本 (xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/code", ))
    輸出調(diào)試文本 (xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/msg", ))
    輸出調(diào)試文本 (xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/smsid", ))
    狀態(tài)標(biāo)簽.標(biāo)題 ＝ "狀態(tài)碼：" ＋ xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/code", ) ＋ #換行符 ＋ "描述：" ＋ xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/msg", ) ＋ #換行符 ＋ "流水號(hào)：" ＋ xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/smsid", )
.如果真結(jié)束
xml.釋放 ()
返回 ()
 
 
返回 ()
 
.子程序 _按鈕2_被單擊
.局部變量 節(jié)點(diǎn)名數(shù)組, 文本型, , "0"
.局部變量 子節(jié)點(diǎn)數(shù), 整數(shù)型
.局部變量 i, 整數(shù)型
 
.如果真 (取反 (賬戶(hù)信息判斷 ()))
    返回 ()
.如果真結(jié)束
 
狀態(tài)標(biāo)簽.標(biāo)題 ＝ 剩余條數(shù) (接口名.內(nèi)容, 接口密.內(nèi)容)
xml文件名 ＝ 取當(dāng)前目錄 () ＋ "\data\getnum.xml"
狀態(tài)標(biāo)簽.標(biāo)題 ＝ 到文本 (編碼轉(zhuǎn)換 (到字節(jié)集 (狀態(tài)標(biāo)簽.標(biāo)題), #編碼_UTF_8, #編碼_GBK, ))
寫(xiě)到文件 (xml文件名, 到字節(jié)集 (狀態(tài)標(biāo)簽.標(biāo)題))
xml.導(dǎo)入 (xml文件名)
xml.取根節(jié)點(diǎn)名 (根節(jié)點(diǎn))
xml.取子節(jié)點(diǎn)數(shù) (根節(jié)點(diǎn), 子節(jié)點(diǎn)數(shù))
.如果真 (子節(jié)點(diǎn)數(shù) ＞ 0)
    xml.取子節(jié)點(diǎn)名 (根節(jié)點(diǎn), 節(jié)點(diǎn)名數(shù)組)
    輸出調(diào)試文本 (節(jié)點(diǎn)名數(shù)組 [1])
    輸出調(diào)試文本 (節(jié)點(diǎn)名數(shù)組 [2])
    輸出調(diào)試文本 (節(jié)點(diǎn)名數(shù)組 [3])
    輸出調(diào)試文本 (xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/code", ))
    輸出調(diào)試文本 (xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/msg", ))
    輸出調(diào)試文本 (xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/num", ))
    狀態(tài)標(biāo)簽.標(biāo)題 ＝ "狀態(tài)碼：" ＋ xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/code", ) ＋ #換行符 ＋ "描述：" ＋ xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/msg", ) ＋ #換行符 ＋ "條數(shù)：" ＋ xml.取節(jié)點(diǎn)值文本 (根節(jié)點(diǎn) ＋ "/num", )
.如果真結(jié)束
xml.釋放 ()
返回 ()
 
 
.子程序 GBK編碼轉(zhuǎn)換, 文本型, 公開(kāi), 將一個(gè)GBK編碼的文本轉(zhuǎn)換為URL編碼，返回一個(gè)URL編碼
.參數(shù) 文本, 文本型, , 需要轉(zhuǎn)換為URL編碼的GBK編碼的文本
.局部變量 GBK文本, 字節(jié)集
.局部變量 URL碼, 文本型
.局部變量 n, 整數(shù)型
 
GBK文本 ＝ 到字節(jié)集 (文本)
.計(jì)次循環(huán)首 (取字節(jié)集長(zhǎng)度 (GBK文本), n)
    URL碼 ＝ URL碼 ＋ "%" ＋ 取十六進(jìn)制文本 (GBK文本 [n])
 
.計(jì)次循環(huán)尾 ()
返回 (URL碼)
 
 
.子程序 UTF8編碼轉(zhuǎn)換, 文本型, 公開(kāi), 將一個(gè)UTF8編碼的文本轉(zhuǎn)換為URL編碼，返回一個(gè)URL編碼
.參數(shù) 文本, 文本型, , 需要轉(zhuǎn)換為URL編碼的UTF8編碼的文本
.局部變量 URL碼, 文本型
.局部變量 n, 整數(shù)型
.局部變量 UTF8文本, 字節(jié)集
 
UTF8文本 ＝ 編碼轉(zhuǎn)換 (到字節(jié)集 (文本), #編碼_GBK, #編碼_UTF_8, )
.計(jì)次循環(huán)首 (取字節(jié)集長(zhǎng)度 (UTF8文本), n)
    URL碼 ＝ URL碼 ＋ "%" ＋ 取十六進(jìn)制文本 (UTF8文本 [n])
 
.計(jì)次循環(huán)尾 ()
返回 (URL碼)
 
.子程序 _分組框4_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型